<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="local-6989586621679059181"><span id="local-6989586621679059182"><span id="local-6989586621679059183"><span id="local-6989586621679059184"></span></span></span></span><span class="hs-pragma">{-# LANGUAGE LambdaCase, ScopedTypeVariables #-}</span><span>
</span><span id="line-2"></span><span>
</span><span id="line-3"></span><span class="hs-comment">-- | A description of the platform we're compiling for.</span><span>
</span><span id="line-4"></span><span class="hs-comment">--</span><span>
</span><span id="line-5"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.Platform</span><span>
</span><span id="line-6"></span><span>   </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="GHC.Platform.html#PlatformMini"><span class="hs-identifier">PlatformMini</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-7"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#PlatformWordSize"><span class="hs-identifier">PlatformWordSize</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-8"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier">Platform</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-9"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformArch"><span class="hs-identifier">platformArch</span></a></span><span>
</span><span id="line-10"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformOS"><span class="hs-identifier">platformOS</span></a></span><span>
</span><span id="line-11"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#Arch"><span class="hs-identifier">Arch</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-12"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier">OS</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-13"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#ArmISA"><span class="hs-identifier">ArmISA</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-14"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#ArmISAExt"><span class="hs-identifier">ArmISAExt</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-15"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#ArmABI"><span class="hs-identifier">ArmABI</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-16"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#PPC_64ABI"><span class="hs-identifier">PPC_64ABI</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-17"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.ByteOrder.html#ByteOrder"><span class="hs-identifier">ByteOrder</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-18"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#target32Bit"><span class="hs-identifier">target32Bit</span></a></span><span>
</span><span id="line-19"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#isARM"><span class="hs-identifier">isARM</span></a></span><span>
</span><span id="line-20"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier">osElfTarget</span></a></span><span>
</span><span id="line-21"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#osMachOTarget"><span class="hs-identifier">osMachOTarget</span></a></span><span>
</span><span id="line-22"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#osSubsectionsViaSymbols"><span class="hs-identifier">osSubsectionsViaSymbols</span></a></span><span>
</span><span id="line-23"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformUsesFrameworks"><span class="hs-identifier">platformUsesFrameworks</span></a></span><span>
</span><span id="line-24"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformWordSizeInBytes"><span class="hs-identifier">platformWordSizeInBytes</span></a></span><span>
</span><span id="line-25"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformWordSizeInBits"><span class="hs-identifier">platformWordSizeInBits</span></a></span><span>
</span><span id="line-26"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformMinInt"><span class="hs-identifier">platformMinInt</span></a></span><span>
</span><span id="line-27"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformMaxInt"><span class="hs-identifier">platformMaxInt</span></a></span><span>
</span><span id="line-28"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformMaxWord"><span class="hs-identifier">platformMaxWord</span></a></span><span>
</span><span id="line-29"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformInIntRange"><span class="hs-identifier">platformInIntRange</span></a></span><span>
</span><span id="line-30"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformInWordRange"><span class="hs-identifier">platformInWordRange</span></a></span><span>
</span><span id="line-31"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#platformCConvNeedsExtension"><span class="hs-identifier">platformCConvNeedsExtension</span></a></span><span>
</span><span id="line-32"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#PlatformMisc"><span class="hs-identifier">PlatformMisc</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-33"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#stringEncodeArch"><span class="hs-identifier">stringEncodeArch</span></a></span><span>
</span><span id="line-34"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#stringEncodeOS"><span class="hs-identifier">stringEncodeOS</span></a></span><span>
</span><span id="line-35"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#SseVersion"><span class="hs-identifier">SseVersion</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-36"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Platform.html#BmiVersion"><span class="hs-identifier">BmiVersion</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-37"></span><span>   </span><span class="hs-special">)</span><span>
</span><span id="line-38"></span><span class="hs-keyword">where</span><span>
</span><span id="line-39"></span><span>
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-comment">-- See Note [Why do we import Prelude here?]</span><span>
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.Read.html#"><span class="hs-identifier">GHC.Read</span></a></span><span>
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.ByteOrder.html#"><span class="hs-identifier">GHC.ByteOrder</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.ByteOrder.html#ByteOrder"><span class="hs-identifier">ByteOrder</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Word.html#"><span class="hs-identifier">Data.Word</span></a></span><span>
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Int.html#"><span class="hs-identifier">Data.Int</span></a></span><span>
</span><span id="line-45"></span><span>
</span><span id="line-46"></span><span class="hs-comment">-- | Contains the bare-bones arch and os information. This isn't enough for</span><span>
</span><span id="line-47"></span><span class="hs-comment">-- code gen, but useful for tasks where we can fall back upon the host</span><span>
</span><span id="line-48"></span><span class="hs-comment">-- platform, as this is all we know about the host platform.</span><span>
</span><span id="line-49"></span><span class="hs-keyword">data</span><span> </span><span id="PlatformMini"><span class="annot"><a href="GHC.Platform.html#PlatformMini"><span class="hs-identifier hs-var">PlatformMini</span></a></span></span><span>
</span><span id="line-50"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="PlatformMini"><span class="annot"><a href="GHC.Platform.html#PlatformMini"><span class="hs-identifier hs-var">PlatformMini</span></a></span></span><span>
</span><span id="line-51"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="platformMini_arch"><span class="annot"><span class="annottext">PlatformMini -&gt; Arch
</span><a href="GHC.Platform.html#platformMini_arch"><span class="hs-identifier hs-var hs-var">platformMini_arch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Arch"><span class="hs-identifier hs-type">Arch</span></a></span><span>
</span><span id="line-52"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="platformMini_os"><span class="annot"><span class="annottext">PlatformMini -&gt; OS
</span><a href="GHC.Platform.html#platformMini_os"><span class="hs-identifier hs-var hs-var">platformMini_os</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span>
</span><span id="line-53"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-54"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679059111"><span id="local-6989586621679059123"><span id="local-6989586621679059126"><span id="local-6989586621679059128"><span class="annot"><span class="annottext">ReadPrec [PlatformMini]
ReadPrec PlatformMini
Int -&gt; ReadS PlatformMini
ReadS [PlatformMini]
(Int -&gt; ReadS PlatformMini)
-&gt; ReadS [PlatformMini]
-&gt; ReadPrec PlatformMini
-&gt; ReadPrec [PlatformMini]
-&gt; Read PlatformMini
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [PlatformMini]
$creadListPrec :: ReadPrec [PlatformMini]
readPrec :: ReadPrec PlatformMini
$creadPrec :: ReadPrec PlatformMini
readList :: ReadS [PlatformMini]
$creadList :: ReadS [PlatformMini]
readsPrec :: Int -&gt; ReadS PlatformMini
$creadsPrec :: Int -&gt; ReadS PlatformMini
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679059099"><span id="local-6989586621679059101"><span id="local-6989586621679059107"><span class="annot"><span class="annottext">Int -&gt; PlatformMini -&gt; ShowS
[PlatformMini] -&gt; ShowS
PlatformMini -&gt; String
(Int -&gt; PlatformMini -&gt; ShowS)
-&gt; (PlatformMini -&gt; String)
-&gt; ([PlatformMini] -&gt; ShowS)
-&gt; Show PlatformMini
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [PlatformMini] -&gt; ShowS
$cshowList :: [PlatformMini] -&gt; ShowS
show :: PlatformMini -&gt; String
$cshow :: PlatformMini -&gt; String
showsPrec :: Int -&gt; PlatformMini -&gt; ShowS
$cshowsPrec :: Int -&gt; PlatformMini -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679059092"><span id="local-6989586621679059096"><span class="annot"><span class="annottext">PlatformMini -&gt; PlatformMini -&gt; Bool
(PlatformMini -&gt; PlatformMini -&gt; Bool)
-&gt; (PlatformMini -&gt; PlatformMini -&gt; Bool) -&gt; Eq PlatformMini
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: PlatformMini -&gt; PlatformMini -&gt; Bool
$c/= :: PlatformMini -&gt; PlatformMini -&gt; Bool
== :: PlatformMini -&gt; PlatformMini -&gt; Bool
$c== :: PlatformMini -&gt; PlatformMini -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-55"></span><span>
</span><span id="line-56"></span><span class="hs-comment">-- | Contains enough information for the native code generator to emit</span><span>
</span><span id="line-57"></span><span class="hs-comment">-- code for this platform.</span><span>
</span><span id="line-58"></span><span class="hs-keyword">data</span><span> </span><span id="Platform"><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-var">Platform</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Platform"><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-var">Platform</span></a></span></span><span>
</span><span id="line-59"></span><span>   </span><span class="hs-special">{</span><span> </span><span id="platformMini"><span class="annot"><span class="annottext">Platform -&gt; PlatformMini
</span><a href="GHC.Platform.html#platformMini"><span class="hs-identifier hs-var hs-var">platformMini</span></a></span></span><span>                     </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="GHC.Platform.html#PlatformMini"><span class="hs-identifier hs-type">PlatformMini</span></a></span><span>
</span><span id="line-60"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformWordSize"><span class="annot"><span class="annottext">Platform -&gt; PlatformWordSize
</span><a href="GHC.Platform.html#platformWordSize"><span class="hs-identifier hs-var hs-var">platformWordSize</span></a></span></span><span>                 </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="GHC.Platform.html#PlatformWordSize"><span class="hs-identifier hs-type">PlatformWordSize</span></a></span><span> </span><span class="hs-comment">-- ^ Word size</span><span>
</span><span id="line-61"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformByteOrder"><span class="annot"><span class="annottext">Platform -&gt; ByteOrder
</span><a href="GHC.Platform.html#platformByteOrder"><span class="hs-identifier hs-var hs-var">platformByteOrder</span></a></span></span><span>                </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="../../base/src/GHC.ByteOrder.html#ByteOrder"><span class="hs-identifier hs-type">ByteOrder</span></a></span><span>        </span><span class="hs-comment">-- ^ Byte order (endianness)</span><span>
</span><span id="line-62"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformUnregisterised"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformUnregisterised"><span class="hs-identifier hs-var hs-var">platformUnregisterised</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-63"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformHasGnuNonexecStack"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformHasGnuNonexecStack"><span class="hs-identifier hs-var hs-var">platformHasGnuNonexecStack</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-64"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformHasIdentDirective"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformHasIdentDirective"><span class="hs-identifier hs-var hs-var">platformHasIdentDirective</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-65"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformHasSubsectionsViaSymbols"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformHasSubsectionsViaSymbols"><span class="hs-identifier hs-var hs-var">platformHasSubsectionsViaSymbols</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-66"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformIsCrossCompiling"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformIsCrossCompiling"><span class="hs-identifier hs-var hs-var">platformIsCrossCompiling</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-67"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformLeadingUnderscore"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformLeadingUnderscore"><span class="hs-identifier hs-var hs-var">platformLeadingUnderscore</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>             </span><span class="hs-comment">-- ^ Symbols need underscore prefix</span><span>
</span><span id="line-68"></span><span>   </span><span class="hs-special">,</span><span> </span><span id="platformTablesNextToCode"><span class="annot"><span class="annottext">Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformTablesNextToCode"><span class="hs-identifier hs-var hs-var">platformTablesNextToCode</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-69"></span><span>      </span><span class="hs-comment">-- ^ Determines whether we will be compiling info tables that reside just</span><span>
</span><span id="line-70"></span><span>      </span><span class="hs-comment">--   before the entry code, or with an indirection to the entry code. See</span><span>
</span><span id="line-71"></span><span>      </span><span class="hs-comment">--   TABLES_NEXT_TO_CODE in includes/rts/storage/InfoTables.h.</span><span>
</span><span id="line-72"></span><span>   </span><span class="hs-special">}</span><span>
</span><span id="line-73"></span><span>   </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679059036"><span id="local-6989586621679059073"><span id="local-6989586621679059076"><span id="local-6989586621679059078"><span class="annot"><span class="annottext">ReadPrec [Platform]
ReadPrec Platform
Int -&gt; ReadS Platform
ReadS [Platform]
(Int -&gt; ReadS Platform)
-&gt; ReadS [Platform]
-&gt; ReadPrec Platform
-&gt; ReadPrec [Platform]
-&gt; Read Platform
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [Platform]
$creadListPrec :: ReadPrec [Platform]
readPrec :: ReadPrec Platform
$creadPrec :: ReadPrec Platform
readList :: ReadS [Platform]
$creadList :: ReadS [Platform]
readsPrec :: Int -&gt; ReadS Platform
$creadsPrec :: Int -&gt; ReadS Platform
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679059016"><span id="local-6989586621679059018"><span id="local-6989586621679059033"><span class="annot"><span class="annottext">Int -&gt; Platform -&gt; ShowS
[Platform] -&gt; ShowS
Platform -&gt; String
(Int -&gt; Platform -&gt; ShowS)
-&gt; (Platform -&gt; String) -&gt; ([Platform] -&gt; ShowS) -&gt; Show Platform
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [Platform] -&gt; ShowS
$cshowList :: [Platform] -&gt; ShowS
show :: Platform -&gt; String
$cshow :: Platform -&gt; String
showsPrec :: Int -&gt; Platform -&gt; ShowS
$cshowsPrec :: Int -&gt; Platform -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679059000"><span id="local-6989586621679059014"><span class="annot"><span class="annottext">Platform -&gt; Platform -&gt; Bool
(Platform -&gt; Platform -&gt; Bool)
-&gt; (Platform -&gt; Platform -&gt; Bool) -&gt; Eq Platform
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: Platform -&gt; Platform -&gt; Bool
$c/= :: Platform -&gt; Platform -&gt; Bool
== :: Platform -&gt; Platform -&gt; Bool
$c== :: Platform -&gt; Platform -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-74"></span><span>
</span><span id="line-75"></span><span class="hs-keyword">data</span><span> </span><span id="PlatformWordSize"><span class="annot"><a href="GHC.Platform.html#PlatformWordSize"><span class="hs-identifier hs-var">PlatformWordSize</span></a></span></span><span>
</span><span id="line-76"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="PW4"><span class="annot"><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span></span><span> </span><span class="hs-comment">-- ^ A 32-bit platform</span><span>
</span><span id="line-77"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="PW8"><span class="annot"><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span></span><span> </span><span class="hs-comment">-- ^ A 64-bit platform</span><span>
</span><span id="line-78"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058994"><span id="local-6989586621679058996"><span class="annot"><span class="annottext">PlatformWordSize -&gt; PlatformWordSize -&gt; Bool
(PlatformWordSize -&gt; PlatformWordSize -&gt; Bool)
-&gt; (PlatformWordSize -&gt; PlatformWordSize -&gt; Bool)
-&gt; Eq PlatformWordSize
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: PlatformWordSize -&gt; PlatformWordSize -&gt; Bool
$c/= :: PlatformWordSize -&gt; PlatformWordSize -&gt; Bool
== :: PlatformWordSize -&gt; PlatformWordSize -&gt; Bool
$c== :: PlatformWordSize -&gt; PlatformWordSize -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-79"></span><span>
</span><span id="line-80"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679058989"><span id="local-6989586621679058992"><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="GHC.Platform.html#PlatformWordSize"><span class="hs-identifier hs-type">PlatformWordSize</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-81"></span><span>  </span><span id="local-6989586621679058988"><span class="annot"><span class="annottext">show :: PlatformWordSize -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var hs-var hs-var hs-var">show</span></a></span></span><span> </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;4&quot;</span></span><span>
</span><span id="line-82"></span><span>  </span><span class="annot"><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;8&quot;</span></span><span>
</span><span id="line-83"></span><span>
</span><span id="line-84"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679058980"><span id="local-6989586621679058983"><span id="local-6989586621679058985"><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="GHC.Platform.html#PlatformWordSize"><span class="hs-identifier hs-type">PlatformWordSize</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-85"></span><span>  </span><span id="local-6989586621679058965"><span class="annot"><span class="annottext">readPrec :: ReadPrec PlatformWordSize
</span><a href="../../base/src/GHC.Read.html#readPrec"><span class="hs-identifier hs-var hs-var hs-var hs-var">readPrec</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-86"></span><span>    </span><span id="local-6989586621679058963"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679058963"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ReadPrec Int
forall a. Read a =&gt; ReadPrec a
</span><a href="../../base/src/GHC.Read.html#readPrec"><span class="hs-identifier hs-var">readPrec</span></a></span><span>
</span><span id="line-87"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679058963"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-88"></span><span>      </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PlatformWordSize -&gt; ReadPrec PlatformWordSize
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span>
</span><span id="line-89"></span><span>      </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">8</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PlatformWordSize -&gt; ReadPrec PlatformWordSize
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span>
</span><span id="line-90"></span><span>      </span><span id="local-6989586621679058962"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679058962"><span class="hs-identifier hs-var">other</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadPrec PlatformWordSize
forall (m :: * -&gt; *) a. MonadFail m =&gt; String -&gt; m a
</span><a href="../../base/src/Control.Monad.Fail.html#fail"><span class="hs-identifier hs-var">fail</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Invalid PlatformWordSize: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679058962"><span class="hs-identifier hs-var">other</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-91"></span><span>
</span><span id="line-92"></span><span class="annot"><a href="GHC.Platform.html#platformWordSizeInBytes"><span class="hs-identifier hs-type">platformWordSizeInBytes</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-93"></span><span id="platformWordSizeInBytes"><span class="annot"><span class="annottext">platformWordSizeInBytes :: Platform -&gt; Int
</span><a href="GHC.Platform.html#platformWordSizeInBytes"><span class="hs-identifier hs-var hs-var">platformWordSizeInBytes</span></a></span></span><span> </span><span id="local-6989586621679058961"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058961"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-94"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformWordSize
</span><a href="GHC.Platform.html#platformWordSize"><span class="hs-identifier hs-var hs-var">platformWordSize</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058961"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-95"></span><span>      </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-96"></span><span>      </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">8</span></span><span>
</span><span id="line-97"></span><span>
</span><span id="line-98"></span><span class="annot"><a href="GHC.Platform.html#platformWordSizeInBits"><span class="hs-identifier hs-type">platformWordSizeInBits</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-99"></span><span id="platformWordSizeInBits"><span class="annot"><span class="annottext">platformWordSizeInBits :: Platform -&gt; Int
</span><a href="GHC.Platform.html#platformWordSizeInBits"><span class="hs-identifier hs-var hs-var">platformWordSizeInBits</span></a></span></span><span> </span><span id="local-6989586621679058960"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058960"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; Int
</span><a href="GHC.Platform.html#platformWordSizeInBytes"><span class="hs-identifier hs-var">platformWordSizeInBytes</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058960"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">8</span></span><span>
</span><span id="line-100"></span><span>
</span><span id="line-101"></span><span class="hs-comment">-- | Legacy accessor</span><span>
</span><span id="line-102"></span><span class="annot"><a href="GHC.Platform.html#platformArch"><span class="hs-identifier hs-type">platformArch</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Platform.html#Arch"><span class="hs-identifier hs-type">Arch</span></a></span><span>
</span><span id="line-103"></span><span id="platformArch"><span class="annot"><span class="annottext">platformArch :: Platform -&gt; Arch
</span><a href="GHC.Platform.html#platformArch"><span class="hs-identifier hs-var hs-var">platformArch</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PlatformMini -&gt; Arch
</span><a href="GHC.Platform.html#platformMini_arch"><span class="hs-identifier hs-var hs-var">platformMini_arch</span></a></span><span> </span><span class="annot"><span class="annottext">(PlatformMini -&gt; Arch)
-&gt; (Platform -&gt; PlatformMini) -&gt; Platform -&gt; Arch
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformMini
</span><a href="GHC.Platform.html#platformMini"><span class="hs-identifier hs-var hs-var">platformMini</span></a></span><span>
</span><span id="line-104"></span><span>
</span><span id="line-105"></span><span class="hs-comment">-- | Legacy accessor</span><span>
</span><span id="line-106"></span><span class="annot"><a href="GHC.Platform.html#platformOS"><span class="hs-identifier hs-type">platformOS</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span>
</span><span id="line-107"></span><span id="platformOS"><span class="annot"><span class="annottext">platformOS :: Platform -&gt; OS
</span><a href="GHC.Platform.html#platformOS"><span class="hs-identifier hs-var hs-var">platformOS</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PlatformMini -&gt; OS
</span><a href="GHC.Platform.html#platformMini_os"><span class="hs-identifier hs-var hs-var">platformMini_os</span></a></span><span> </span><span class="annot"><span class="annottext">(PlatformMini -&gt; OS)
-&gt; (Platform -&gt; PlatformMini) -&gt; Platform -&gt; OS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformMini
</span><a href="GHC.Platform.html#platformMini"><span class="hs-identifier hs-var hs-var">platformMini</span></a></span><span>
</span><span id="line-108"></span><span>
</span><span id="line-109"></span><span class="hs-comment">-- | Architectures that the native code generator knows about.</span><span>
</span><span id="line-110"></span><span class="hs-comment">--      TODO: It might be nice to extend these constructors with information</span><span>
</span><span id="line-111"></span><span class="hs-comment">--      about what instruction set extensions an architecture might support.</span><span>
</span><span id="line-112"></span><span class="hs-comment">--</span><span>
</span><span id="line-113"></span><span class="hs-keyword">data</span><span> </span><span id="Arch"><span class="annot"><a href="GHC.Platform.html#Arch"><span class="hs-identifier hs-var">Arch</span></a></span></span><span>
</span><span id="line-114"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span id="ArchUnknown"><span class="annot"><a href="GHC.Platform.html#ArchUnknown"><span class="hs-identifier hs-var">ArchUnknown</span></a></span></span><span>
</span><span id="line-115"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchX86"><span class="annot"><a href="GHC.Platform.html#ArchX86"><span class="hs-identifier hs-var">ArchX86</span></a></span></span><span>
</span><span id="line-116"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchX86_64"><span class="annot"><a href="GHC.Platform.html#ArchX86_64"><span class="hs-identifier hs-var">ArchX86_64</span></a></span></span><span>
</span><span id="line-117"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchPPC"><span class="annot"><a href="GHC.Platform.html#ArchPPC"><span class="hs-identifier hs-var">ArchPPC</span></a></span></span><span>
</span><span id="line-118"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchPPC_64"><span class="annot"><a href="GHC.Platform.html#ArchPPC_64"><span class="hs-identifier hs-var">ArchPPC_64</span></a></span></span><span>
</span><span id="line-119"></span><span>          </span><span class="hs-special">{</span><span> </span><span id="ppc_64ABI"><span class="annot"><span class="annottext">Arch -&gt; PPC_64ABI
</span><a href="GHC.Platform.html#ppc_64ABI"><span class="hs-identifier hs-var hs-var">ppc_64ABI</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#PPC_64ABI"><span class="hs-identifier hs-type">PPC_64ABI</span></a></span><span>
</span><span id="line-120"></span><span>          </span><span class="hs-special">}</span><span>
</span><span id="line-121"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchS390X"><span class="annot"><a href="GHC.Platform.html#ArchS390X"><span class="hs-identifier hs-var">ArchS390X</span></a></span></span><span>
</span><span id="line-122"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchSPARC"><span class="annot"><a href="GHC.Platform.html#ArchSPARC"><span class="hs-identifier hs-var">ArchSPARC</span></a></span></span><span>
</span><span id="line-123"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchSPARC64"><span class="annot"><a href="GHC.Platform.html#ArchSPARC64"><span class="hs-identifier hs-var">ArchSPARC64</span></a></span></span><span>
</span><span id="line-124"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchARM"><span class="annot"><a href="GHC.Platform.html#ArchARM"><span class="hs-identifier hs-var">ArchARM</span></a></span></span><span>
</span><span id="line-125"></span><span>          </span><span class="hs-special">{</span><span> </span><span id="armISA"><span class="annot"><span class="annottext">Arch -&gt; ArmISA
</span><a href="GHC.Platform.html#armISA"><span class="hs-identifier hs-var hs-var">armISA</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#ArmISA"><span class="hs-identifier hs-type">ArmISA</span></a></span><span>
</span><span id="line-126"></span><span>          </span><span class="hs-special">,</span><span> </span><span id="armISAExt"><span class="annot"><span class="annottext">Arch -&gt; [ArmISAExt]
</span><a href="GHC.Platform.html#armISAExt"><span class="hs-identifier hs-var hs-var">armISAExt</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHC.Platform.html#ArmISAExt"><span class="hs-identifier hs-type">ArmISAExt</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-127"></span><span>          </span><span class="hs-special">,</span><span> </span><span id="armABI"><span class="annot"><span class="annottext">Arch -&gt; ArmABI
</span><a href="GHC.Platform.html#armABI"><span class="hs-identifier hs-var hs-var">armABI</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#ArmABI"><span class="hs-identifier hs-type">ArmABI</span></a></span><span>
</span><span id="line-128"></span><span>          </span><span class="hs-special">}</span><span>
</span><span id="line-129"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchAArch64"><span class="annot"><a href="GHC.Platform.html#ArchAArch64"><span class="hs-identifier hs-var">ArchAArch64</span></a></span></span><span>
</span><span id="line-130"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchAlpha"><span class="annot"><a href="GHC.Platform.html#ArchAlpha"><span class="hs-identifier hs-var">ArchAlpha</span></a></span></span><span>
</span><span id="line-131"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchMipseb"><span class="annot"><a href="GHC.Platform.html#ArchMipseb"><span class="hs-identifier hs-var">ArchMipseb</span></a></span></span><span>
</span><span id="line-132"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchMipsel"><span class="annot"><a href="GHC.Platform.html#ArchMipsel"><span class="hs-identifier hs-var">ArchMipsel</span></a></span></span><span>
</span><span id="line-133"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="ArchJavaScript"><span class="annot"><a href="GHC.Platform.html#ArchJavaScript"><span class="hs-identifier hs-var">ArchJavaScript</span></a></span></span><span>
</span><span id="line-134"></span><span>        </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058899"><span id="local-6989586621679058933"><span id="local-6989586621679058936"><span id="local-6989586621679058938"><span class="annot"><span class="annottext">ReadPrec [Arch]
ReadPrec Arch
Int -&gt; ReadS Arch
ReadS [Arch]
(Int -&gt; ReadS Arch)
-&gt; ReadS [Arch] -&gt; ReadPrec Arch -&gt; ReadPrec [Arch] -&gt; Read Arch
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [Arch]
$creadListPrec :: ReadPrec [Arch]
readPrec :: ReadPrec Arch
$creadPrec :: ReadPrec Arch
readList :: ReadS [Arch]
$creadList :: ReadS [Arch]
readsPrec :: Int -&gt; ReadS Arch
$creadsPrec :: Int -&gt; ReadS Arch
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058884"><span id="local-6989586621679058886"><span id="local-6989586621679058896"><span class="annot"><span class="annottext">Int -&gt; Arch -&gt; ShowS
[Arch] -&gt; ShowS
Arch -&gt; String
(Int -&gt; Arch -&gt; ShowS)
-&gt; (Arch -&gt; String) -&gt; ([Arch] -&gt; ShowS) -&gt; Show Arch
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [Arch] -&gt; ShowS
$cshowList :: [Arch] -&gt; ShowS
show :: Arch -&gt; String
$cshow :: Arch -&gt; String
showsPrec :: Int -&gt; Arch -&gt; ShowS
$cshowsPrec :: Int -&gt; Arch -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058874"><span id="local-6989586621679058882"><span class="annot"><span class="annottext">Arch -&gt; Arch -&gt; Bool
(Arch -&gt; Arch -&gt; Bool) -&gt; (Arch -&gt; Arch -&gt; Bool) -&gt; Eq Arch
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: Arch -&gt; Arch -&gt; Bool
$c/= :: Arch -&gt; Arch -&gt; Bool
== :: Arch -&gt; Arch -&gt; Bool
$c== :: Arch -&gt; Arch -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-135"></span><span>
</span><span id="line-136"></span><span class="hs-comment">-- Note [Platform Syntax]</span><span>
</span><span id="line-137"></span><span class="hs-comment">-- ~~~~~~~~~~~~~~~~~~~~~~</span><span>
</span><span id="line-138"></span><span class="hs-comment">-- There is a very loose encoding of platforms shared by many tools we are</span><span>
</span><span id="line-139"></span><span class="hs-comment">-- encoding to here. GNU Config (http://git.savannah.gnu.org/cgit/config.git),</span><span>
</span><span id="line-140"></span><span class="hs-comment">-- and LLVM's http://llvm.org/doxygen/classllvm_1_1Triple.html are perhaps the</span><span>
</span><span id="line-141"></span><span class="hs-comment">-- most definitional parsers. The basic syntax is a list of '-'-separated</span><span>
</span><span id="line-142"></span><span class="hs-comment">-- components. The Unix 'uname' command syntax is related but briefer.</span><span>
</span><span id="line-143"></span><span class="hs-comment">--</span><span>
</span><span id="line-144"></span><span class="hs-comment">-- Those two parsers are quite forgiving, and even the 'config.sub'</span><span>
</span><span id="line-145"></span><span class="hs-comment">-- normalization is forgiving too. The &quot;best&quot; way to encode a platform is</span><span>
</span><span id="line-146"></span><span class="hs-comment">-- therefore somewhat a matter of taste.</span><span>
</span><span id="line-147"></span><span class="hs-comment">--</span><span>
</span><span id="line-148"></span><span class="hs-comment">-- The 'stringEncode*' functions here convert each part of GHC's structured</span><span>
</span><span id="line-149"></span><span class="hs-comment">-- notion of a platform into one dash-separated component.</span><span>
</span><span id="line-150"></span><span>
</span><span id="line-151"></span><span class="hs-comment">-- | See Note [Platform Syntax].</span><span>
</span><span id="line-152"></span><span class="annot"><a href="GHC.Platform.html#stringEncodeArch"><span class="hs-identifier hs-type">stringEncodeArch</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Arch"><span class="hs-identifier hs-type">Arch</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-153"></span><span id="stringEncodeArch"><span class="annot"><span class="annottext">stringEncodeArch :: Arch -&gt; String
</span><a href="GHC.Platform.html#stringEncodeArch"><span class="hs-identifier hs-var hs-var">stringEncodeArch</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-glyph">\</span><span class="hs-glyph">case</span><span>
</span><span id="line-154"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchUnknown"><span class="hs-identifier hs-var">ArchUnknown</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;unknown&quot;</span></span><span>
</span><span id="line-155"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchX86"><span class="hs-identifier hs-var">ArchX86</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;i386&quot;</span></span><span>
</span><span id="line-156"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchX86_64"><span class="hs-identifier hs-var">ArchX86_64</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;x86_64&quot;</span></span><span>
</span><span id="line-157"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchPPC"><span class="hs-identifier hs-var">ArchPPC</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;powerpc&quot;</span></span><span>
</span><span id="line-158"></span><span>  </span><span class="annot"><a href="GHC.Platform.html#ArchPPC_64"><span class="hs-identifier hs-type">ArchPPC_64</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">ppc_64ABI :: Arch -&gt; PPC_64ABI
</span><a href="GHC.Platform.html#ppc_64ABI"><span class="hs-identifier hs-var">ppc_64ABI</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621679058873"><span class="annot"><span class="annottext">PPC_64ABI
</span><a href="#local-6989586621679058873"><span class="hs-identifier hs-var">abi</span></a></span></span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">PPC_64ABI
</span><a href="#local-6989586621679058873"><span class="hs-identifier hs-var">abi</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-159"></span><span>    </span><span class="annot"><span class="annottext">PPC_64ABI
</span><a href="GHC.Platform.html#ELF_V1"><span class="hs-identifier hs-var">ELF_V1</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;powerpc64&quot;</span></span><span>
</span><span id="line-160"></span><span>    </span><span class="annot"><span class="annottext">PPC_64ABI
</span><a href="GHC.Platform.html#ELF_V2"><span class="hs-identifier hs-var">ELF_V2</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;powerpc64le&quot;</span></span><span>
</span><span id="line-161"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchS390X"><span class="hs-identifier hs-var">ArchS390X</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;s390x&quot;</span></span><span>
</span><span id="line-162"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchSPARC"><span class="hs-identifier hs-var">ArchSPARC</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;sparc&quot;</span></span><span>
</span><span id="line-163"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchSPARC64"><span class="hs-identifier hs-var">ArchSPARC64</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;sparc64&quot;</span></span><span>
</span><span id="line-164"></span><span>  </span><span class="annot"><a href="GHC.Platform.html#ArchARM"><span class="hs-identifier hs-type">ArchARM</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">armISA :: Arch -&gt; ArmISA
</span><a href="GHC.Platform.html#armISA"><span class="hs-identifier hs-var">armISA</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621679058870"><span class="annot"><span class="annottext">ArmISA
</span><a href="#local-6989586621679058870"><span class="hs-identifier hs-var">isa</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">armISAExt :: Arch -&gt; [ArmISAExt]
</span><a href="GHC.Platform.html#armISAExt"><span class="hs-identifier hs-var">armISAExt</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ArmISAExt]
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">armABI :: Arch -&gt; ArmABI
</span><a href="GHC.Platform.html#armABI"><span class="hs-identifier hs-var">armABI</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ArmABI
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;arm&quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679058869"><span class="hs-identifier hs-var">vsuf</span></a></span><span>
</span><span id="line-165"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-166"></span><span>      </span><span id="local-6989586621679058869"><span class="annot"><span class="annottext">vsuf :: String
</span><a href="#local-6989586621679058869"><span class="hs-identifier hs-var hs-var">vsuf</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ArmISA
</span><a href="#local-6989586621679058870"><span class="hs-identifier hs-var">isa</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-167"></span><span>        </span><span class="annot"><span class="annottext">ArmISA
</span><a href="GHC.Platform.html#ARMv5"><span class="hs-identifier hs-var">ARMv5</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;v5&quot;</span></span><span>
</span><span id="line-168"></span><span>        </span><span class="annot"><span class="annottext">ArmISA
</span><a href="GHC.Platform.html#ARMv6"><span class="hs-identifier hs-var">ARMv6</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;v6&quot;</span></span><span>
</span><span id="line-169"></span><span>        </span><span class="annot"><span class="annottext">ArmISA
</span><a href="GHC.Platform.html#ARMv7"><span class="hs-identifier hs-var">ARMv7</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;v7&quot;</span></span><span>
</span><span id="line-170"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchAArch64"><span class="hs-identifier hs-var">ArchAArch64</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;aarch64&quot;</span></span><span>
</span><span id="line-171"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchAlpha"><span class="hs-identifier hs-var">ArchAlpha</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;alpha&quot;</span></span><span>
</span><span id="line-172"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchMipseb"><span class="hs-identifier hs-var">ArchMipseb</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;mipseb&quot;</span></span><span>
</span><span id="line-173"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchMipsel"><span class="hs-identifier hs-var">ArchMipsel</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;mipsel&quot;</span></span><span>
</span><span id="line-174"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchJavaScript"><span class="hs-identifier hs-var">ArchJavaScript</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;js&quot;</span></span><span>
</span><span id="line-175"></span><span>
</span><span id="line-176"></span><span class="annot"><a href="GHC.Platform.html#isARM"><span class="hs-identifier hs-type">isARM</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Arch"><span class="hs-identifier hs-type">Arch</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-177"></span><span id="isARM"><span class="annot"><span class="annottext">isARM :: Arch -&gt; Bool
</span><a href="GHC.Platform.html#isARM"><span class="hs-identifier hs-var hs-var">isARM</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Platform.html#ArchARM"><span class="hs-identifier hs-type">ArchARM</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-178"></span><span class="annot"><a href="GHC.Platform.html#isARM"><span class="hs-identifier hs-var">isARM</span></a></span><span> </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchAArch64"><span class="hs-identifier hs-var">ArchAArch64</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-179"></span><span class="annot"><a href="GHC.Platform.html#isARM"><span class="hs-identifier hs-var">isARM</span></a></span><span> </span><span class="annot"><span class="annottext">Arch
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-180"></span><span>
</span><span id="line-181"></span><span class="hs-comment">-- | Operating systems that the native code generator knows about.</span><span>
</span><span id="line-182"></span><span class="hs-comment">--      Having OSUnknown should produce a sensible default, but no promises.</span><span>
</span><span id="line-183"></span><span class="hs-keyword">data</span><span> </span><span id="OS"><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-var">OS</span></a></span></span><span>
</span><span id="line-184"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span id="OSUnknown"><span class="annot"><a href="GHC.Platform.html#OSUnknown"><span class="hs-identifier hs-var">OSUnknown</span></a></span></span><span>
</span><span id="line-185"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSLinux"><span class="annot"><a href="GHC.Platform.html#OSLinux"><span class="hs-identifier hs-var">OSLinux</span></a></span></span><span>
</span><span id="line-186"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSDarwin"><span class="annot"><a href="GHC.Platform.html#OSDarwin"><span class="hs-identifier hs-var">OSDarwin</span></a></span></span><span>
</span><span id="line-187"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSSolaris2"><span class="annot"><a href="GHC.Platform.html#OSSolaris2"><span class="hs-identifier hs-var">OSSolaris2</span></a></span></span><span>
</span><span id="line-188"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSMinGW32"><span class="annot"><a href="GHC.Platform.html#OSMinGW32"><span class="hs-identifier hs-var">OSMinGW32</span></a></span></span><span>
</span><span id="line-189"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSFreeBSD"><span class="annot"><a href="GHC.Platform.html#OSFreeBSD"><span class="hs-identifier hs-var">OSFreeBSD</span></a></span></span><span>
</span><span id="line-190"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSDragonFly"><span class="annot"><a href="GHC.Platform.html#OSDragonFly"><span class="hs-identifier hs-var">OSDragonFly</span></a></span></span><span>
</span><span id="line-191"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSOpenBSD"><span class="annot"><a href="GHC.Platform.html#OSOpenBSD"><span class="hs-identifier hs-var">OSOpenBSD</span></a></span></span><span>
</span><span id="line-192"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSNetBSD"><span class="annot"><a href="GHC.Platform.html#OSNetBSD"><span class="hs-identifier hs-var">OSNetBSD</span></a></span></span><span>
</span><span id="line-193"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSKFreeBSD"><span class="annot"><a href="GHC.Platform.html#OSKFreeBSD"><span class="hs-identifier hs-var">OSKFreeBSD</span></a></span></span><span>
</span><span id="line-194"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSHaiku"><span class="annot"><a href="GHC.Platform.html#OSHaiku"><span class="hs-identifier hs-var">OSHaiku</span></a></span></span><span>
</span><span id="line-195"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSQNXNTO"><span class="annot"><a href="GHC.Platform.html#OSQNXNTO"><span class="hs-identifier hs-var">OSQNXNTO</span></a></span></span><span>
</span><span id="line-196"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSAIX"><span class="annot"><a href="GHC.Platform.html#OSAIX"><span class="hs-identifier hs-var">OSAIX</span></a></span></span><span>
</span><span id="line-197"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span id="OSHurd"><span class="annot"><a href="GHC.Platform.html#OSHurd"><span class="hs-identifier hs-var">OSHurd</span></a></span></span><span>
</span><span id="line-198"></span><span>        </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058829"><span id="local-6989586621679058845"><span id="local-6989586621679058848"><span id="local-6989586621679058850"><span class="annot"><span class="annottext">ReadPrec [OS]
ReadPrec OS
Int -&gt; ReadS OS
ReadS [OS]
(Int -&gt; ReadS OS)
-&gt; ReadS [OS] -&gt; ReadPrec OS -&gt; ReadPrec [OS] -&gt; Read OS
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [OS]
$creadListPrec :: ReadPrec [OS]
readPrec :: ReadPrec OS
$creadPrec :: ReadPrec OS
readList :: ReadS [OS]
$creadList :: ReadS [OS]
readsPrec :: Int -&gt; ReadS OS
$creadsPrec :: Int -&gt; ReadS OS
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058822"><span id="local-6989586621679058824"><span id="local-6989586621679058826"><span class="annot"><span class="annottext">Int -&gt; OS -&gt; ShowS
[OS] -&gt; ShowS
OS -&gt; String
(Int -&gt; OS -&gt; ShowS)
-&gt; (OS -&gt; String) -&gt; ([OS] -&gt; ShowS) -&gt; Show OS
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [OS] -&gt; ShowS
$cshowList :: [OS] -&gt; ShowS
show :: OS -&gt; String
$cshow :: OS -&gt; String
showsPrec :: Int -&gt; OS -&gt; ShowS
$cshowsPrec :: Int -&gt; OS -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058818"><span id="local-6989586621679058820"><span class="annot"><span class="annottext">OS -&gt; OS -&gt; Bool
(OS -&gt; OS -&gt; Bool) -&gt; (OS -&gt; OS -&gt; Bool) -&gt; Eq OS
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: OS -&gt; OS -&gt; Bool
$c/= :: OS -&gt; OS -&gt; Bool
== :: OS -&gt; OS -&gt; Bool
$c== :: OS -&gt; OS -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-199"></span><span>
</span><span id="line-200"></span><span class="hs-comment">-- | See Note [Platform Syntax].</span><span>
</span><span id="line-201"></span><span class="annot"><a href="GHC.Platform.html#stringEncodeOS"><span class="hs-identifier hs-type">stringEncodeOS</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-202"></span><span id="stringEncodeOS"><span class="annot"><span class="annottext">stringEncodeOS :: OS -&gt; String
</span><a href="GHC.Platform.html#stringEncodeOS"><span class="hs-identifier hs-var hs-var">stringEncodeOS</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-glyph">\</span><span class="hs-glyph">case</span><span>
</span><span id="line-203"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSUnknown"><span class="hs-identifier hs-var">OSUnknown</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;unknown&quot;</span></span><span>
</span><span id="line-204"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSLinux"><span class="hs-identifier hs-var">OSLinux</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;linux&quot;</span></span><span>
</span><span id="line-205"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDarwin"><span class="hs-identifier hs-var">OSDarwin</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;darwin&quot;</span></span><span>
</span><span id="line-206"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSSolaris2"><span class="hs-identifier hs-var">OSSolaris2</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;solaris2&quot;</span></span><span>
</span><span id="line-207"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSMinGW32"><span class="hs-identifier hs-var">OSMinGW32</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;mingw32&quot;</span></span><span>
</span><span id="line-208"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSFreeBSD"><span class="hs-identifier hs-var">OSFreeBSD</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;freebsd&quot;</span></span><span>
</span><span id="line-209"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDragonFly"><span class="hs-identifier hs-var">OSDragonFly</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;dragonfly&quot;</span></span><span>
</span><span id="line-210"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSOpenBSD"><span class="hs-identifier hs-var">OSOpenBSD</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;openbsd&quot;</span></span><span>
</span><span id="line-211"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSNetBSD"><span class="hs-identifier hs-var">OSNetBSD</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;netbsd&quot;</span></span><span>
</span><span id="line-212"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSKFreeBSD"><span class="hs-identifier hs-var">OSKFreeBSD</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;kfreebsdgnu&quot;</span></span><span>
</span><span id="line-213"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSHaiku"><span class="hs-identifier hs-var">OSHaiku</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;haiku&quot;</span></span><span>
</span><span id="line-214"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSQNXNTO"><span class="hs-identifier hs-var">OSQNXNTO</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;nto-qnx&quot;</span></span><span>
</span><span id="line-215"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSAIX"><span class="hs-identifier hs-var">OSAIX</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;aix&quot;</span></span><span>
</span><span id="line-216"></span><span>  </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSHurd"><span class="hs-identifier hs-var">OSHurd</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;hurd&quot;</span></span><span>
</span><span id="line-217"></span><span>
</span><span id="line-218"></span><span class="hs-comment">-- | ARM Instruction Set Architecture, Extensions and ABI</span><span>
</span><span id="line-219"></span><span class="hs-comment">--</span><span>
</span><span id="line-220"></span><span class="hs-keyword">data</span><span> </span><span id="ArmISA"><span class="annot"><a href="GHC.Platform.html#ArmISA"><span class="hs-identifier hs-var">ArmISA</span></a></span></span><span>
</span><span id="line-221"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="ARMv5"><span class="annot"><a href="GHC.Platform.html#ARMv5"><span class="hs-identifier hs-var">ARMv5</span></a></span></span><span>
</span><span id="line-222"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="ARMv6"><span class="annot"><a href="GHC.Platform.html#ARMv6"><span class="hs-identifier hs-var">ARMv6</span></a></span></span><span>
</span><span id="line-223"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="ARMv7"><span class="annot"><a href="GHC.Platform.html#ARMv7"><span class="hs-identifier hs-var">ARMv7</span></a></span></span><span>
</span><span id="line-224"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058806"><span id="local-6989586621679058811"><span id="local-6989586621679058814"><span id="local-6989586621679058816"><span class="annot"><span class="annottext">ReadPrec [ArmISA]
ReadPrec ArmISA
Int -&gt; ReadS ArmISA
ReadS [ArmISA]
(Int -&gt; ReadS ArmISA)
-&gt; ReadS [ArmISA]
-&gt; ReadPrec ArmISA
-&gt; ReadPrec [ArmISA]
-&gt; Read ArmISA
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [ArmISA]
$creadListPrec :: ReadPrec [ArmISA]
readPrec :: ReadPrec ArmISA
$creadPrec :: ReadPrec ArmISA
readList :: ReadS [ArmISA]
$creadList :: ReadS [ArmISA]
readsPrec :: Int -&gt; ReadS ArmISA
$creadsPrec :: Int -&gt; ReadS ArmISA
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058799"><span id="local-6989586621679058801"><span id="local-6989586621679058803"><span class="annot"><span class="annottext">Int -&gt; ArmISA -&gt; ShowS
[ArmISA] -&gt; ShowS
ArmISA -&gt; String
(Int -&gt; ArmISA -&gt; ShowS)
-&gt; (ArmISA -&gt; String) -&gt; ([ArmISA] -&gt; ShowS) -&gt; Show ArmISA
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ArmISA] -&gt; ShowS
$cshowList :: [ArmISA] -&gt; ShowS
show :: ArmISA -&gt; String
$cshow :: ArmISA -&gt; String
showsPrec :: Int -&gt; ArmISA -&gt; ShowS
$cshowsPrec :: Int -&gt; ArmISA -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058795"><span id="local-6989586621679058797"><span class="annot"><span class="annottext">ArmISA -&gt; ArmISA -&gt; Bool
(ArmISA -&gt; ArmISA -&gt; Bool)
-&gt; (ArmISA -&gt; ArmISA -&gt; Bool) -&gt; Eq ArmISA
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: ArmISA -&gt; ArmISA -&gt; Bool
$c/= :: ArmISA -&gt; ArmISA -&gt; Bool
== :: ArmISA -&gt; ArmISA -&gt; Bool
$c== :: ArmISA -&gt; ArmISA -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-225"></span><span>
</span><span id="line-226"></span><span class="hs-keyword">data</span><span> </span><span id="ArmISAExt"><span class="annot"><a href="GHC.Platform.html#ArmISAExt"><span class="hs-identifier hs-var">ArmISAExt</span></a></span></span><span>
</span><span id="line-227"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="VFPv2"><span class="annot"><a href="GHC.Platform.html#VFPv2"><span class="hs-identifier hs-var">VFPv2</span></a></span></span><span>
</span><span id="line-228"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="VFPv3"><span class="annot"><a href="GHC.Platform.html#VFPv3"><span class="hs-identifier hs-var">VFPv3</span></a></span></span><span>
</span><span id="line-229"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="VFPv3D16"><span class="annot"><a href="GHC.Platform.html#VFPv3D16"><span class="hs-identifier hs-var">VFPv3D16</span></a></span></span><span>
</span><span id="line-230"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="NEON"><span class="annot"><a href="GHC.Platform.html#NEON"><span class="hs-identifier hs-var">NEON</span></a></span></span><span>
</span><span id="line-231"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="IWMMX2"><span class="annot"><a href="GHC.Platform.html#IWMMX2"><span class="hs-identifier hs-var">IWMMX2</span></a></span></span><span>
</span><span id="line-232"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058776"><span id="local-6989586621679058783"><span id="local-6989586621679058786"><span id="local-6989586621679058788"><span class="annot"><span class="annottext">ReadPrec [ArmISAExt]
ReadPrec ArmISAExt
Int -&gt; ReadS ArmISAExt
ReadS [ArmISAExt]
(Int -&gt; ReadS ArmISAExt)
-&gt; ReadS [ArmISAExt]
-&gt; ReadPrec ArmISAExt
-&gt; ReadPrec [ArmISAExt]
-&gt; Read ArmISAExt
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [ArmISAExt]
$creadListPrec :: ReadPrec [ArmISAExt]
readPrec :: ReadPrec ArmISAExt
$creadPrec :: ReadPrec ArmISAExt
readList :: ReadS [ArmISAExt]
$creadList :: ReadS [ArmISAExt]
readsPrec :: Int -&gt; ReadS ArmISAExt
$creadsPrec :: Int -&gt; ReadS ArmISAExt
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058769"><span id="local-6989586621679058771"><span id="local-6989586621679058773"><span class="annot"><span class="annottext">Int -&gt; ArmISAExt -&gt; ShowS
[ArmISAExt] -&gt; ShowS
ArmISAExt -&gt; String
(Int -&gt; ArmISAExt -&gt; ShowS)
-&gt; (ArmISAExt -&gt; String)
-&gt; ([ArmISAExt] -&gt; ShowS)
-&gt; Show ArmISAExt
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ArmISAExt] -&gt; ShowS
$cshowList :: [ArmISAExt] -&gt; ShowS
show :: ArmISAExt -&gt; String
$cshow :: ArmISAExt -&gt; String
showsPrec :: Int -&gt; ArmISAExt -&gt; ShowS
$cshowsPrec :: Int -&gt; ArmISAExt -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058765"><span id="local-6989586621679058767"><span class="annot"><span class="annottext">ArmISAExt -&gt; ArmISAExt -&gt; Bool
(ArmISAExt -&gt; ArmISAExt -&gt; Bool)
-&gt; (ArmISAExt -&gt; ArmISAExt -&gt; Bool) -&gt; Eq ArmISAExt
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: ArmISAExt -&gt; ArmISAExt -&gt; Bool
$c/= :: ArmISAExt -&gt; ArmISAExt -&gt; Bool
== :: ArmISAExt -&gt; ArmISAExt -&gt; Bool
$c== :: ArmISAExt -&gt; ArmISAExt -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-233"></span><span>
</span><span id="line-234"></span><span class="hs-keyword">data</span><span> </span><span id="ArmABI"><span class="annot"><a href="GHC.Platform.html#ArmABI"><span class="hs-identifier hs-var">ArmABI</span></a></span></span><span>
</span><span id="line-235"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="SOFT"><span class="annot"><a href="GHC.Platform.html#SOFT"><span class="hs-identifier hs-var">SOFT</span></a></span></span><span>
</span><span id="line-236"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="SOFTFP"><span class="annot"><a href="GHC.Platform.html#SOFTFP"><span class="hs-identifier hs-var">SOFTFP</span></a></span></span><span>
</span><span id="line-237"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HARD"><span class="annot"><a href="GHC.Platform.html#HARD"><span class="hs-identifier hs-var">HARD</span></a></span></span><span>
</span><span id="line-238"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058750"><span id="local-6989586621679058755"><span id="local-6989586621679058758"><span id="local-6989586621679058760"><span class="annot"><span class="annottext">ReadPrec [ArmABI]
ReadPrec ArmABI
Int -&gt; ReadS ArmABI
ReadS [ArmABI]
(Int -&gt; ReadS ArmABI)
-&gt; ReadS [ArmABI]
-&gt; ReadPrec ArmABI
-&gt; ReadPrec [ArmABI]
-&gt; Read ArmABI
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [ArmABI]
$creadListPrec :: ReadPrec [ArmABI]
readPrec :: ReadPrec ArmABI
$creadPrec :: ReadPrec ArmABI
readList :: ReadS [ArmABI]
$creadList :: ReadS [ArmABI]
readsPrec :: Int -&gt; ReadS ArmABI
$creadsPrec :: Int -&gt; ReadS ArmABI
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058743"><span id="local-6989586621679058745"><span id="local-6989586621679058747"><span class="annot"><span class="annottext">Int -&gt; ArmABI -&gt; ShowS
[ArmABI] -&gt; ShowS
ArmABI -&gt; String
(Int -&gt; ArmABI -&gt; ShowS)
-&gt; (ArmABI -&gt; String) -&gt; ([ArmABI] -&gt; ShowS) -&gt; Show ArmABI
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ArmABI] -&gt; ShowS
$cshowList :: [ArmABI] -&gt; ShowS
show :: ArmABI -&gt; String
$cshow :: ArmABI -&gt; String
showsPrec :: Int -&gt; ArmABI -&gt; ShowS
$cshowsPrec :: Int -&gt; ArmABI -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058739"><span id="local-6989586621679058741"><span class="annot"><span class="annottext">ArmABI -&gt; ArmABI -&gt; Bool
(ArmABI -&gt; ArmABI -&gt; Bool)
-&gt; (ArmABI -&gt; ArmABI -&gt; Bool) -&gt; Eq ArmABI
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: ArmABI -&gt; ArmABI -&gt; Bool
$c/= :: ArmABI -&gt; ArmABI -&gt; Bool
== :: ArmABI -&gt; ArmABI -&gt; Bool
$c== :: ArmABI -&gt; ArmABI -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-239"></span><span>
</span><span id="line-240"></span><span class="hs-comment">-- | PowerPC 64-bit ABI</span><span>
</span><span id="line-241"></span><span class="hs-comment">--</span><span>
</span><span id="line-242"></span><span class="hs-keyword">data</span><span> </span><span id="PPC_64ABI"><span class="annot"><a href="GHC.Platform.html#PPC_64ABI"><span class="hs-identifier hs-var">PPC_64ABI</span></a></span></span><span>
</span><span id="line-243"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="ELF_V1"><span class="annot"><a href="GHC.Platform.html#ELF_V1"><span class="hs-identifier hs-var">ELF_V1</span></a></span></span><span>
</span><span id="line-244"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="ELF_V2"><span class="annot"><a href="GHC.Platform.html#ELF_V2"><span class="hs-identifier hs-var">ELF_V2</span></a></span></span><span>
</span><span id="line-245"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058728"><span id="local-6989586621679058732"><span id="local-6989586621679058735"><span id="local-6989586621679058737"><span class="annot"><span class="annottext">ReadPrec [PPC_64ABI]
ReadPrec PPC_64ABI
Int -&gt; ReadS PPC_64ABI
ReadS [PPC_64ABI]
(Int -&gt; ReadS PPC_64ABI)
-&gt; ReadS [PPC_64ABI]
-&gt; ReadPrec PPC_64ABI
-&gt; ReadPrec [PPC_64ABI]
-&gt; Read PPC_64ABI
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [PPC_64ABI]
$creadListPrec :: ReadPrec [PPC_64ABI]
readPrec :: ReadPrec PPC_64ABI
$creadPrec :: ReadPrec PPC_64ABI
readList :: ReadS [PPC_64ABI]
$creadList :: ReadS [PPC_64ABI]
readsPrec :: Int -&gt; ReadS PPC_64ABI
$creadsPrec :: Int -&gt; ReadS PPC_64ABI
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058721"><span id="local-6989586621679058723"><span id="local-6989586621679058725"><span class="annot"><span class="annottext">Int -&gt; PPC_64ABI -&gt; ShowS
[PPC_64ABI] -&gt; ShowS
PPC_64ABI -&gt; String
(Int -&gt; PPC_64ABI -&gt; ShowS)
-&gt; (PPC_64ABI -&gt; String)
-&gt; ([PPC_64ABI] -&gt; ShowS)
-&gt; Show PPC_64ABI
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [PPC_64ABI] -&gt; ShowS
$cshowList :: [PPC_64ABI] -&gt; ShowS
show :: PPC_64ABI -&gt; String
$cshow :: PPC_64ABI -&gt; String
showsPrec :: Int -&gt; PPC_64ABI -&gt; ShowS
$cshowsPrec :: Int -&gt; PPC_64ABI -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058717"><span id="local-6989586621679058719"><span class="annot"><span class="annottext">PPC_64ABI -&gt; PPC_64ABI -&gt; Bool
(PPC_64ABI -&gt; PPC_64ABI -&gt; Bool)
-&gt; (PPC_64ABI -&gt; PPC_64ABI -&gt; Bool) -&gt; Eq PPC_64ABI
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: PPC_64ABI -&gt; PPC_64ABI -&gt; Bool
$c/= :: PPC_64ABI -&gt; PPC_64ABI -&gt; Bool
== :: PPC_64ABI -&gt; PPC_64ABI -&gt; Bool
$c== :: PPC_64ABI -&gt; PPC_64ABI -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-246"></span><span>
</span><span id="line-247"></span><span class="hs-comment">-- | This predicate tells us whether the platform is 32-bit.</span><span>
</span><span id="line-248"></span><span class="annot"><a href="GHC.Platform.html#target32Bit"><span class="hs-identifier hs-type">target32Bit</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-249"></span><span id="target32Bit"><span class="annot"><span class="annottext">target32Bit :: Platform -&gt; Bool
</span><a href="GHC.Platform.html#target32Bit"><span class="hs-identifier hs-var hs-var">target32Bit</span></a></span></span><span> </span><span id="local-6989586621679058716"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058716"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-250"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformWordSize
</span><a href="GHC.Platform.html#platformWordSize"><span class="hs-identifier hs-var hs-var">platformWordSize</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058716"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-251"></span><span>      </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-252"></span><span>      </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-253"></span><span>
</span><span id="line-254"></span><span class="hs-comment">-- | This predicate tells us whether the OS supports ELF-like shared libraries.</span><span>
</span><span id="line-255"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-type">osElfTarget</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-256"></span><span id="osElfTarget"><span class="annot"><span class="annottext">osElfTarget :: OS -&gt; Bool
</span><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var hs-var">osElfTarget</span></a></span></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSLinux"><span class="hs-identifier hs-var">OSLinux</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-257"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSFreeBSD"><span class="hs-identifier hs-var">OSFreeBSD</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-258"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDragonFly"><span class="hs-identifier hs-var">OSDragonFly</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-259"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSOpenBSD"><span class="hs-identifier hs-var">OSOpenBSD</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-260"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSNetBSD"><span class="hs-identifier hs-var">OSNetBSD</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-261"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSSolaris2"><span class="hs-identifier hs-var">OSSolaris2</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-262"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDarwin"><span class="hs-identifier hs-var">OSDarwin</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-263"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSMinGW32"><span class="hs-identifier hs-var">OSMinGW32</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-264"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSKFreeBSD"><span class="hs-identifier hs-var">OSKFreeBSD</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-265"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSHaiku"><span class="hs-identifier hs-var">OSHaiku</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-266"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSQNXNTO"><span class="hs-identifier hs-var">OSQNXNTO</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-267"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSAIX"><span class="hs-identifier hs-var">OSAIX</span></a></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-268"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSHurd"><span class="hs-identifier hs-var">OSHurd</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-269"></span><span class="annot"><a href="GHC.Platform.html#osElfTarget"><span class="hs-identifier hs-var">osElfTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSUnknown"><span class="hs-identifier hs-var">OSUnknown</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-270"></span><span> </span><span class="hs-comment">-- Defaulting to False is safe; it means don't rely on any</span><span>
</span><span id="line-271"></span><span> </span><span class="hs-comment">-- ELF-specific functionality.  It is important to have a default for</span><span>
</span><span id="line-272"></span><span> </span><span class="hs-comment">-- portability, otherwise we have to answer this question for every</span><span>
</span><span id="line-273"></span><span> </span><span class="hs-comment">-- new platform we compile on (even unreg).</span><span>
</span><span id="line-274"></span><span>
</span><span id="line-275"></span><span class="hs-comment">-- | This predicate tells us whether the OS support Mach-O shared libraries.</span><span>
</span><span id="line-276"></span><span class="annot"><a href="GHC.Platform.html#osMachOTarget"><span class="hs-identifier hs-type">osMachOTarget</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-277"></span><span id="osMachOTarget"><span class="annot"><span class="annottext">osMachOTarget :: OS -&gt; Bool
</span><a href="GHC.Platform.html#osMachOTarget"><span class="hs-identifier hs-var hs-var">osMachOTarget</span></a></span></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDarwin"><span class="hs-identifier hs-var">OSDarwin</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-278"></span><span class="annot"><a href="GHC.Platform.html#osMachOTarget"><span class="hs-identifier hs-var">osMachOTarget</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-279"></span><span>
</span><span id="line-280"></span><span class="annot"><a href="GHC.Platform.html#osUsesFrameworks"><span class="hs-identifier hs-type">osUsesFrameworks</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-281"></span><span id="osUsesFrameworks"><span class="annot"><span class="annottext">osUsesFrameworks :: OS -&gt; Bool
</span><a href="GHC.Platform.html#osUsesFrameworks"><span class="hs-identifier hs-var hs-var">osUsesFrameworks</span></a></span></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDarwin"><span class="hs-identifier hs-var">OSDarwin</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-282"></span><span class="annot"><a href="GHC.Platform.html#osUsesFrameworks"><span class="hs-identifier hs-var">osUsesFrameworks</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><span class="hs-identifier">_</span></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-283"></span><span>
</span><span id="line-284"></span><span class="annot"><a href="GHC.Platform.html#platformUsesFrameworks"><span class="hs-identifier hs-type">platformUsesFrameworks</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-285"></span><span id="platformUsesFrameworks"><span class="annot"><span class="annottext">platformUsesFrameworks :: Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformUsesFrameworks"><span class="hs-identifier hs-var hs-var">platformUsesFrameworks</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">OS -&gt; Bool
</span><a href="GHC.Platform.html#osUsesFrameworks"><span class="hs-identifier hs-var">osUsesFrameworks</span></a></span><span> </span><span class="annot"><span class="annottext">(OS -&gt; Bool) -&gt; (Platform -&gt; OS) -&gt; Platform -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Platform -&gt; OS
</span><a href="GHC.Platform.html#platformOS"><span class="hs-identifier hs-var">platformOS</span></a></span><span>
</span><span id="line-286"></span><span>
</span><span id="line-287"></span><span class="annot"><a href="GHC.Platform.html#osSubsectionsViaSymbols"><span class="hs-identifier hs-type">osSubsectionsViaSymbols</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#OS"><span class="hs-identifier hs-type">OS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-288"></span><span id="osSubsectionsViaSymbols"><span class="annot"><span class="annottext">osSubsectionsViaSymbols :: OS -&gt; Bool
</span><a href="GHC.Platform.html#osSubsectionsViaSymbols"><span class="hs-identifier hs-var hs-var">osSubsectionsViaSymbols</span></a></span></span><span> </span><span class="annot"><span class="annottext">OS
</span><a href="GHC.Platform.html#OSDarwin"><span class="hs-identifier hs-var">OSDarwin</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-289"></span><span class="annot"><a href="GHC.Platform.html#osSubsectionsViaSymbols"><span class="hs-identifier hs-var">osSubsectionsViaSymbols</span></a></span><span> </span><span class="annot"><span class="annottext">OS
</span><span class="hs-identifier">_</span></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-290"></span><span>
</span><span id="line-291"></span><span class="hs-comment">-- | Platform-specific settings formerly hard-coded in Config.hs.</span><span>
</span><span id="line-292"></span><span class="hs-comment">--</span><span>
</span><span id="line-293"></span><span class="hs-comment">-- These should probably be all be triaged whether they can be computed from</span><span>
</span><span id="line-294"></span><span class="hs-comment">-- other settings or belong in another another place (like 'Platform' above).</span><span>
</span><span id="line-295"></span><span class="hs-keyword">data</span><span> </span><span id="PlatformMisc"><span class="annot"><a href="GHC.Platform.html#PlatformMisc"><span class="hs-identifier hs-var">PlatformMisc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="PlatformMisc"><span class="annot"><a href="GHC.Platform.html#PlatformMisc"><span class="hs-identifier hs-var">PlatformMisc</span></a></span></span><span>
</span><span id="line-296"></span><span>  </span><span class="hs-special">{</span><span> </span><span class="hs-comment">-- TODO Recalculate string from richer info?</span><span>
</span><span id="line-297"></span><span>    </span><span id="platformMisc_targetPlatformString"><span class="annot"><span class="annottext">PlatformMisc -&gt; String
</span><a href="GHC.Platform.html#platformMisc_targetPlatformString"><span class="hs-identifier hs-var hs-var">platformMisc_targetPlatformString</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-298"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_ghcWithInterpreter"><span class="annot"><span class="annottext">PlatformMisc -&gt; Bool
</span><a href="GHC.Platform.html#platformMisc_ghcWithInterpreter"><span class="hs-identifier hs-var hs-var">platformMisc_ghcWithInterpreter</span></a></span></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-299"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_ghcWithSMP"><span class="annot"><span class="annottext">PlatformMisc -&gt; Bool
</span><a href="GHC.Platform.html#platformMisc_ghcWithSMP"><span class="hs-identifier hs-var hs-var">platformMisc_ghcWithSMP</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-300"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_ghcRTSWays"><span class="annot"><span class="annottext">PlatformMisc -&gt; String
</span><a href="GHC.Platform.html#platformMisc_ghcRTSWays"><span class="hs-identifier hs-var hs-var">platformMisc_ghcRTSWays</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-301"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_libFFI"><span class="annot"><span class="annottext">PlatformMisc -&gt; Bool
</span><a href="GHC.Platform.html#platformMisc_libFFI"><span class="hs-identifier hs-var hs-var">platformMisc_libFFI</span></a></span></span><span>               </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-302"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_ghcThreaded"><span class="annot"><span class="annottext">PlatformMisc -&gt; Bool
</span><a href="GHC.Platform.html#platformMisc_ghcThreaded"><span class="hs-identifier hs-var hs-var">platformMisc_ghcThreaded</span></a></span></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-303"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_ghcDebugged"><span class="annot"><span class="annottext">PlatformMisc -&gt; Bool
</span><a href="GHC.Platform.html#platformMisc_ghcDebugged"><span class="hs-identifier hs-var hs-var">platformMisc_ghcDebugged</span></a></span></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-304"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_ghcRtsWithLibdw"><span class="annot"><span class="annottext">PlatformMisc -&gt; Bool
</span><a href="GHC.Platform.html#platformMisc_ghcRtsWithLibdw"><span class="hs-identifier hs-var hs-var">platformMisc_ghcRtsWithLibdw</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-305"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="platformMisc_llvmTarget"><span class="annot"><span class="annottext">PlatformMisc -&gt; String
</span><a href="GHC.Platform.html#platformMisc_llvmTarget"><span class="hs-identifier hs-var hs-var">platformMisc_llvmTarget</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-306"></span><span>  </span><span class="hs-special">}</span><span>
</span><span id="line-307"></span><span>
</span><span id="line-308"></span><span class="hs-comment">-- | Minimum representable Int value for the given platform</span><span>
</span><span id="line-309"></span><span class="annot"><a href="GHC.Platform.html#platformMinInt"><span class="hs-identifier hs-type">platformMinInt</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-310"></span><span id="platformMinInt"><span class="annot"><span class="annottext">platformMinInt :: Platform -&gt; Integer
</span><a href="GHC.Platform.html#platformMinInt"><span class="hs-identifier hs-var hs-var">platformMinInt</span></a></span></span><span> </span><span id="local-6989586621679058704"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058704"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformWordSize
</span><a href="GHC.Platform.html#platformWordSize"><span class="hs-identifier hs-var hs-var">platformWordSize</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058704"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-311"></span><span>   </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int32 -&gt; Integer
forall a. Integral a =&gt; a -&gt; Integer
</span><a href="../../base/src/GHC.Real.html#toInteger"><span class="hs-identifier hs-var">toInteger</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int32
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#minBound"><span class="hs-identifier hs-var">minBound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Int.html#Int32"><span class="hs-identifier hs-type">Int32</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-312"></span><span>   </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int64 -&gt; Integer
forall a. Integral a =&gt; a -&gt; Integer
</span><a href="../../base/src/GHC.Real.html#toInteger"><span class="hs-identifier hs-var">toInteger</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int64
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#minBound"><span class="hs-identifier hs-var">minBound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Int.html#Int64"><span class="hs-identifier hs-type">Int64</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-313"></span><span>
</span><span id="line-314"></span><span class="hs-comment">-- | Maximum representable Int value for the given platform</span><span>
</span><span id="line-315"></span><span class="annot"><a href="GHC.Platform.html#platformMaxInt"><span class="hs-identifier hs-type">platformMaxInt</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-316"></span><span id="platformMaxInt"><span class="annot"><span class="annottext">platformMaxInt :: Platform -&gt; Integer
</span><a href="GHC.Platform.html#platformMaxInt"><span class="hs-identifier hs-var hs-var">platformMaxInt</span></a></span></span><span> </span><span id="local-6989586621679058702"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058702"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformWordSize
</span><a href="GHC.Platform.html#platformWordSize"><span class="hs-identifier hs-var hs-var">platformWordSize</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058702"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-317"></span><span>   </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int32 -&gt; Integer
forall a. Integral a =&gt; a -&gt; Integer
</span><a href="../../base/src/GHC.Real.html#toInteger"><span class="hs-identifier hs-var">toInteger</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int32
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#maxBound"><span class="hs-identifier hs-var">maxBound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Int.html#Int32"><span class="hs-identifier hs-type">Int32</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-318"></span><span>   </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int64 -&gt; Integer
forall a. Integral a =&gt; a -&gt; Integer
</span><a href="../../base/src/GHC.Real.html#toInteger"><span class="hs-identifier hs-var">toInteger</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int64
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#maxBound"><span class="hs-identifier hs-var">maxBound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Int.html#Int64"><span class="hs-identifier hs-type">Int64</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-319"></span><span>
</span><span id="line-320"></span><span class="hs-comment">-- | Maximum representable Word value for the given platform</span><span>
</span><span id="line-321"></span><span class="annot"><a href="GHC.Platform.html#platformMaxWord"><span class="hs-identifier hs-type">platformMaxWord</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-322"></span><span id="platformMaxWord"><span class="annot"><span class="annottext">platformMaxWord :: Platform -&gt; Integer
</span><a href="GHC.Platform.html#platformMaxWord"><span class="hs-identifier hs-var hs-var">platformMaxWord</span></a></span></span><span> </span><span id="local-6989586621679058700"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058700"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; PlatformWordSize
</span><a href="GHC.Platform.html#platformWordSize"><span class="hs-identifier hs-var hs-var">platformWordSize</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058700"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-323"></span><span>   </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW4"><span class="hs-identifier hs-var">PW4</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word32 -&gt; Integer
forall a. Integral a =&gt; a -&gt; Integer
</span><a href="../../base/src/GHC.Real.html#toInteger"><span class="hs-identifier hs-var">toInteger</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word32
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#maxBound"><span class="hs-identifier hs-var">maxBound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-324"></span><span>   </span><span class="annot"><span class="annottext">PlatformWordSize
</span><a href="GHC.Platform.html#PW8"><span class="hs-identifier hs-var">PW8</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word64 -&gt; Integer
forall a. Integral a =&gt; a -&gt; Integer
</span><a href="../../base/src/GHC.Real.html#toInteger"><span class="hs-identifier hs-var">toInteger</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word64
forall a. Bounded a =&gt; a
</span><a href="../../base/src/GHC.Enum.html#maxBound"><span class="hs-identifier hs-var">maxBound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word64"><span class="hs-identifier hs-type">Word64</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-325"></span><span>
</span><span id="line-326"></span><span class="hs-comment">-- | Test if the given Integer is representable with a platform Int</span><span>
</span><span id="line-327"></span><span class="annot"><a href="GHC.Platform.html#platformInIntRange"><span class="hs-identifier hs-type">platformInIntRange</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-328"></span><span id="platformInIntRange"><span class="annot"><span class="annottext">platformInIntRange :: Platform -&gt; Integer -&gt; Bool
</span><a href="GHC.Platform.html#platformInIntRange"><span class="hs-identifier hs-var hs-var">platformInIntRange</span></a></span></span><span> </span><span id="local-6989586621679058699"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058699"><span class="hs-identifier hs-var">platform</span></a></span></span><span> </span><span id="local-6989586621679058698"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679058698"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679058698"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">Platform -&gt; Integer
</span><a href="GHC.Platform.html#platformMinInt"><span class="hs-identifier hs-var">platformMinInt</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058699"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679058698"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;=</span></span><span> </span><span class="annot"><span class="annottext">Platform -&gt; Integer
</span><a href="GHC.Platform.html#platformMaxInt"><span class="hs-identifier hs-var">platformMaxInt</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058699"><span class="hs-identifier hs-var">platform</span></a></span><span>
</span><span id="line-329"></span><span>
</span><span id="line-330"></span><span class="hs-comment">-- | Test if the given Integer is representable with a platform Word</span><span>
</span><span id="line-331"></span><span class="annot"><a href="GHC.Platform.html#platformInWordRange"><span class="hs-identifier hs-type">platformInWordRange</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-332"></span><span id="platformInWordRange"><span class="annot"><span class="annottext">platformInWordRange :: Platform -&gt; Integer -&gt; Bool
</span><a href="GHC.Platform.html#platformInWordRange"><span class="hs-identifier hs-var hs-var">platformInWordRange</span></a></span></span><span> </span><span id="local-6989586621679058695"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058695"><span class="hs-identifier hs-var">platform</span></a></span></span><span> </span><span id="local-6989586621679058694"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679058694"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679058694"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679058694"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;=</span></span><span> </span><span class="annot"><span class="annottext">Platform -&gt; Integer
</span><a href="GHC.Platform.html#platformMaxWord"><span class="hs-identifier hs-var">platformMaxWord</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058695"><span class="hs-identifier hs-var">platform</span></a></span><span>
</span><span id="line-333"></span><span>
</span><span id="line-334"></span><span class="hs-comment">-- | For some architectures the C calling convention is that any</span><span>
</span><span id="line-335"></span><span class="hs-comment">-- integer shorter than 64 bits is replaced by its 64 bits</span><span>
</span><span id="line-336"></span><span class="hs-comment">-- representation using sign or zero extension.</span><span>
</span><span id="line-337"></span><span class="annot"><a href="GHC.Platform.html#platformCConvNeedsExtension"><span class="hs-identifier hs-type">platformCConvNeedsExtension</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Platform.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-338"></span><span id="platformCConvNeedsExtension"><span class="annot"><span class="annottext">platformCConvNeedsExtension :: Platform -&gt; Bool
</span><a href="GHC.Platform.html#platformCConvNeedsExtension"><span class="hs-identifier hs-var hs-var">platformCConvNeedsExtension</span></a></span></span><span> </span><span id="local-6989586621679058693"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058693"><span class="hs-identifier hs-var">platform</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Platform -&gt; Arch
</span><a href="GHC.Platform.html#platformArch"><span class="hs-identifier hs-var">platformArch</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679058693"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-339"></span><span>  </span><span class="annot"><a href="GHC.Platform.html#ArchPPC_64"><span class="hs-identifier hs-type">ArchPPC_64</span></a></span><span> </span><span class="annot"><span class="annottext">PPC_64ABI
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-340"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><a href="GHC.Platform.html#ArchS390X"><span class="hs-identifier hs-var">ArchS390X</span></a></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-341"></span><span>  </span><span class="annot"><span class="annottext">Arch
</span><span class="hs-identifier">_</span></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-342"></span><span>
</span><span id="line-343"></span><span>
</span><span id="line-344"></span><span class="hs-comment">--------------------------------------------------</span><span>
</span><span id="line-345"></span><span class="hs-comment">-- Instruction sets</span><span>
</span><span id="line-346"></span><span class="hs-comment">--------------------------------------------------</span><span>
</span><span id="line-347"></span><span>
</span><span id="line-348"></span><span class="hs-comment">-- | x86 SSE instructions</span><span>
</span><span id="line-349"></span><span class="hs-keyword">data</span><span> </span><span id="SseVersion"><span class="annot"><a href="GHC.Platform.html#SseVersion"><span class="hs-identifier hs-var">SseVersion</span></a></span></span><span>
</span><span id="line-350"></span><span>   </span><span class="hs-glyph">=</span><span> </span><span id="SSE1"><span class="annot"><a href="GHC.Platform.html#SSE1"><span class="hs-identifier hs-var">SSE1</span></a></span></span><span>
</span><span id="line-351"></span><span>   </span><span class="hs-glyph">|</span><span> </span><span id="SSE2"><span class="annot"><a href="GHC.Platform.html#SSE2"><span class="hs-identifier hs-var">SSE2</span></a></span></span><span>
</span><span id="line-352"></span><span>   </span><span class="hs-glyph">|</span><span> </span><span id="SSE3"><span class="annot"><a href="GHC.Platform.html#SSE3"><span class="hs-identifier hs-var">SSE3</span></a></span></span><span>
</span><span id="line-353"></span><span>   </span><span class="hs-glyph">|</span><span> </span><span id="SSE4"><span class="annot"><a href="GHC.Platform.html#SSE4"><span class="hs-identifier hs-var">SSE4</span></a></span></span><span>
</span><span id="line-354"></span><span>   </span><span class="hs-glyph">|</span><span> </span><span id="SSE42"><span class="annot"><a href="GHC.Platform.html#SSE42"><span class="hs-identifier hs-var">SSE42</span></a></span></span><span>
</span><span id="line-355"></span><span>   </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058684"><span id="local-6989586621679058686"><span class="annot"><span class="annottext">SseVersion -&gt; SseVersion -&gt; Bool
(SseVersion -&gt; SseVersion -&gt; Bool)
-&gt; (SseVersion -&gt; SseVersion -&gt; Bool) -&gt; Eq SseVersion
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: SseVersion -&gt; SseVersion -&gt; Bool
$c/= :: SseVersion -&gt; SseVersion -&gt; Bool
== :: SseVersion -&gt; SseVersion -&gt; Bool
$c== :: SseVersion -&gt; SseVersion -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058665"><span id="local-6989586621679058667"><span id="local-6989586621679058670"><span id="local-6989586621679058673"><span id="local-6989586621679058676"><span id="local-6989586621679058678"><span id="local-6989586621679058680"><span class="annot"><span class="annottext">Eq SseVersion
Eq SseVersion
-&gt; (SseVersion -&gt; SseVersion -&gt; Ordering)
-&gt; (SseVersion -&gt; SseVersion -&gt; Bool)
-&gt; (SseVersion -&gt; SseVersion -&gt; Bool)
-&gt; (SseVersion -&gt; SseVersion -&gt; Bool)
-&gt; (SseVersion -&gt; SseVersion -&gt; Bool)
-&gt; (SseVersion -&gt; SseVersion -&gt; SseVersion)
-&gt; (SseVersion -&gt; SseVersion -&gt; SseVersion)
-&gt; Ord SseVersion
SseVersion -&gt; SseVersion -&gt; Bool
SseVersion -&gt; SseVersion -&gt; Ordering
SseVersion -&gt; SseVersion -&gt; SseVersion
forall a.
Eq a
-&gt; (a -&gt; a -&gt; Ordering)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; a)
-&gt; (a -&gt; a -&gt; a)
-&gt; Ord a
min :: SseVersion -&gt; SseVersion -&gt; SseVersion
$cmin :: SseVersion -&gt; SseVersion -&gt; SseVersion
max :: SseVersion -&gt; SseVersion -&gt; SseVersion
$cmax :: SseVersion -&gt; SseVersion -&gt; SseVersion
&gt;= :: SseVersion -&gt; SseVersion -&gt; Bool
$c&gt;= :: SseVersion -&gt; SseVersion -&gt; Bool
&gt; :: SseVersion -&gt; SseVersion -&gt; Bool
$c&gt; :: SseVersion -&gt; SseVersion -&gt; Bool
&lt;= :: SseVersion -&gt; SseVersion -&gt; Bool
$c&lt;= :: SseVersion -&gt; SseVersion -&gt; Bool
&lt; :: SseVersion -&gt; SseVersion -&gt; Bool
$c&lt; :: SseVersion -&gt; SseVersion -&gt; Bool
compare :: SseVersion -&gt; SseVersion -&gt; Ordering
$ccompare :: SseVersion -&gt; SseVersion -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Ord</span></span></span></span></span></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-356"></span><span>
</span><span id="line-357"></span><span class="hs-comment">-- | x86 BMI (bit manipulation) instructions</span><span>
</span><span id="line-358"></span><span class="hs-keyword">data</span><span> </span><span id="BmiVersion"><span class="annot"><a href="GHC.Platform.html#BmiVersion"><span class="hs-identifier hs-var">BmiVersion</span></a></span></span><span>
</span><span id="line-359"></span><span>   </span><span class="hs-glyph">=</span><span> </span><span id="BMI1"><span class="annot"><a href="GHC.Platform.html#BMI1"><span class="hs-identifier hs-var">BMI1</span></a></span></span><span>
</span><span id="line-360"></span><span>   </span><span class="hs-glyph">|</span><span> </span><span id="BMI2"><span class="annot"><a href="GHC.Platform.html#BMI2"><span class="hs-identifier hs-var">BMI2</span></a></span></span><span>
</span><span id="line-361"></span><span>   </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679058658"><span id="local-6989586621679058660"><span class="annot"><span class="annottext">BmiVersion -&gt; BmiVersion -&gt; Bool
(BmiVersion -&gt; BmiVersion -&gt; Bool)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; Bool) -&gt; Eq BmiVersion
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: BmiVersion -&gt; BmiVersion -&gt; Bool
$c/= :: BmiVersion -&gt; BmiVersion -&gt; Bool
== :: BmiVersion -&gt; BmiVersion -&gt; Bool
$c== :: BmiVersion -&gt; BmiVersion -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679058639"><span id="local-6989586621679058641"><span id="local-6989586621679058644"><span id="local-6989586621679058647"><span id="local-6989586621679058650"><span id="local-6989586621679058652"><span id="local-6989586621679058654"><span class="annot"><span class="annottext">Eq BmiVersion
Eq BmiVersion
-&gt; (BmiVersion -&gt; BmiVersion -&gt; Ordering)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; Bool)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; Bool)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; Bool)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; Bool)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; BmiVersion)
-&gt; (BmiVersion -&gt; BmiVersion -&gt; BmiVersion)
-&gt; Ord BmiVersion
BmiVersion -&gt; BmiVersion -&gt; Bool
BmiVersion -&gt; BmiVersion -&gt; Ordering
BmiVersion -&gt; BmiVersion -&gt; BmiVersion
forall a.
Eq a
-&gt; (a -&gt; a -&gt; Ordering)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; a)
-&gt; (a -&gt; a -&gt; a)
-&gt; Ord a
min :: BmiVersion -&gt; BmiVersion -&gt; BmiVersion
$cmin :: BmiVersion -&gt; BmiVersion -&gt; BmiVersion
max :: BmiVersion -&gt; BmiVersion -&gt; BmiVersion
$cmax :: BmiVersion -&gt; BmiVersion -&gt; BmiVersion
&gt;= :: BmiVersion -&gt; BmiVersion -&gt; Bool
$c&gt;= :: BmiVersion -&gt; BmiVersion -&gt; Bool
&gt; :: BmiVersion -&gt; BmiVersion -&gt; Bool
$c&gt; :: BmiVersion -&gt; BmiVersion -&gt; Bool
&lt;= :: BmiVersion -&gt; BmiVersion -&gt; Bool
$c&lt;= :: BmiVersion -&gt; BmiVersion -&gt; Bool
&lt; :: BmiVersion -&gt; BmiVersion -&gt; Bool
$c&lt; :: BmiVersion -&gt; BmiVersion -&gt; Bool
compare :: BmiVersion -&gt; BmiVersion -&gt; Ordering
$ccompare :: BmiVersion -&gt; BmiVersion -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Ord</span></span></span></span></span></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-362"></span><span>
</span><span id="line-363"></span></pre></body></html>